home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / pour.dxr / 00013_Popup text box.ls < prev    next >
Encoding:
Text File  |  2000-03-23  |  1022 b   |  51 lines
  1. property pSpr, pOrigMem, pRollMem, pCloseMem, pCloseRollMem, pState
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pOrigMem = pSpr.member
  6.   pRollMem = nextMember(pOrigMem, 1)
  7.   pCloseMem = nextMember(pOrigMem, 2)
  8.   pCloseRollMem = nextMember(pOrigMem, 3)
  9.   pState = #red
  10. end
  11.  
  12. on mRefresh me
  13.   if pState = #green then
  14.     pSpr.member = pOrigMem
  15.   else
  16.     pSpr.member = pCloseMem
  17.   end if
  18. end
  19.  
  20. on mouseLeave me
  21.   mRefresh(me)
  22. end
  23.  
  24. on mouseEnter me
  25.   global gDrinkContentSpr
  26.   if pState = #green then
  27.     pSpr.member = pRollMem
  28.   else
  29.     pSpr.member = pCloseRollMem
  30.   end if
  31.   myRect = (the activeWindow).rect
  32.   stageRect = (the stage).rect
  33.   tipLoc = point(myRect.left - stageRect.left, myRect.bottom - stageRect.top + 5)
  34.   if the stage <> the activeWindow then
  35.     tell the stage
  36.       showToolTip(sprite(me.spriteNum), #pourmeter, tipLoc, 1)
  37.     end tell
  38.   end if
  39. end
  40.  
  41. on mouseDown me
  42.   if pState = #green then
  43.     textView()
  44.     pState = #red
  45.   else
  46.     noTextView()
  47.     pState = #green
  48.   end if
  49.   mRefresh(me)
  50. end
  51.